       
      integer I12,IPERTOP,IAPR,MNRS1E,MXRS3E,IPART,I_RES_AB
      COMMON/OPER/I12,IPERTOP,IAPR,MNRS1E,MXRS3E,IPART,I_RES_AB

